Option Explicit
Sub C_Sample016()
    Dim myRng As Range
    Set myRng = Range("A1")					'Nxs
    myRng.Clear								'xs檺M
    myRng.Value = "abcdefghijklmnopqrstuxwxyz"	'rꪺ]w
    'ǳƨ즹
    MsgBox "Ypܨxs椺"
    myRng.ShrinkToFit = True
    Set myRng = Nothing						'
End Sub

